(message "Please insert your Populous Data disk in any drive and select it.")
(set #CI_drive
(askdir
(prompt ("What is your Populous data disk?"))
(help @askdir-help)
(default @default-dest)
(disk)
)
)
(if
(= (exists ("%sland4" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%slevel.dat" #CI_drive))
(newname ("vel.dat"))
(dest #dest)
)
(copyfiles
(help @copyfiles-help)
(source ("%sland4" #CI_drive))
(newname ("nd4"))
(dest #dest)
)
(if
(= (exists ("%sland5" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%sland5" #CI_drive))
(newname ("nd5"))
(dest #dest)
)
)
)
(if
(= (exists ("%sland6" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%sland6" #CI_drive))
(newname ("nd6"))
(dest #dest)
)
)
)
(if
(= (exists ("%sland7" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%sland7" #CI_drive))
(newname ("nd7"))
(dest #dest)
)
)
)
(if
(= (exists ("%sland8" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%sland8" #CI_drive))
(newname ("nd8"))
(dest #dest)
)
)
)
(if
(= (exists ("%sland9" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%sland9" #CI_drive))
(newname ("nd9"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites4.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites4.dat" #CI_drive))
(newname ("rites4.dat"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites5.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites5.dat" #CI_drive))
(newname ("rites5.dat"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites6.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites6.dat" #CI_drive))
(newname ("rites6.dat"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites7.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites7.dat" #CI_drive))
(newname ("rites7.dat"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites8.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites8.dat" #CI_drive))
(newname ("rites8.dat"))
(dest #dest)
)
)
)
(if
(= (exists ("%ssprites9.dat" #CI_drive)) 1)
(
(copyfiles
(help @copyfiles-help)
(source ("%ssprites9.dat" #CI_drive))
(newname ("rites9.dat"))
(dest #dest)
)
)
)
)
(abort "That was not the Populous Data disk.")
)
)
)
;****************************
(set #paramver "27")
(set #instmode
(askchoice
(prompt "Please select installation-mode")
(default 0)
(choices "Install your original (or backup) on harddisk" "Patch a backup of your original" "Install an already patched backup to harddisk")
(help @askchoice-help "\n\n Installing your original on harddisk will copy your disk to hd, then patch it.\nPatching a backup of your original requires a backup (who had ever thought this?).\nWith install an already patched backup to hd you may install a former with that script patched backup to hd.")